home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / patch / WHDIGamesJ-M.lzh / LionKing.lha / Install next >
Text File  |  1980-07-23  |  3KB  |  147 lines
  1. ;****************************
  2.  
  3. (set #readme-file "LionKing.readme") ;Lame-o-Script by Galahad!
  4.  
  5. (procedure P_ChkRun
  6.   (if
  7.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  8.     ("")
  9.     (abort 
  10.       (cat
  11.     "You must install \"" #program "\" first!\n"
  12.     "It must be accessible via the path.\n"
  13.     "You can find it in the WHDLoad package."
  14.       )
  15.     )
  16.   )
  17. )
  18. (procedure P_disk
  19.     (message ("\nInsert LiON KiNG Disk 1 in DF0!"))
  20. )
  21. (procedure P_diskn
  22.     (message ("\nInsert LiON KiNG Disk 2 in DF0!"))
  23. )
  24. (procedure P_disko
  25.     (message ("\nInsert LiON KiNG Disk 3 in DF0!"))
  26. )
  27. (procedure P_diskp
  28.     (message ("\nInsert LiON KiNG Disk 4 in DF0!"))
  29. )
  30.  
  31. (if
  32.   (exists #readme-file)
  33.   (if
  34.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  35.     ("")
  36.     (run ("SYS:Utilities/More %s" #readme-file))
  37.   )
  38. )
  39.  
  40. (set #program "WHDLoad")
  41. (P_ChkRun)
  42.  
  43.  
  44. (set @default-dest
  45.   (askdir
  46.     (prompt 
  47.       (cat
  48.     "Where should \"" @app-name "\" installed ?\n"
  49.     "A drawer \"" @app-name "\" will automatically created."
  50.       )
  51.     )
  52.     (help @askdir-help)
  53.     (default @default-dest)
  54.     (disk)
  55.   )
  56. )
  57. (set #dest (tackon @default-dest @app-name))
  58. (if
  59.   (exists #dest)
  60.   (
  61.     (set #choice
  62.       (askbool
  63.         (prompt
  64.           (cat
  65.             "\nDirectory \"" #dest "\" already exists.\n"
  66.             "Should it be deleted?"
  67.           )
  68.         )
  69.         (default 1)
  70.         (choices "Delete" "Skip")
  71.         (help @askbool-help)
  72.       )
  73.     )
  74.     (if
  75.       (= #choice 1)
  76.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  77.     )
  78.   )
  79. )
  80. (makedir #dest
  81.   (help @makedir-help)
  82.   (infos)
  83. )
  84.  
  85. ;----------------------------
  86.  
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source ("LK.Slave"))
  90.   (dest #dest)
  91. )
  92. (copyfiles
  93.   (help @copyfiles-help)
  94.   (source ("LionKing.info"))
  95.   (dest #dest)
  96. )
  97. (if
  98.   (exists #readme-file)
  99.   (copyfiles
  100.     (help @copyfiles-help)
  101.     (source #readme-file)
  102.     (dest #dest)
  103.   )
  104. )
  105. (if
  106.   (exists ("%s.info" #readme-file))
  107.   (copyfiles
  108.     (help @copyfiles-help)
  109.     (source ("%s.info" #readme-file))
  110.     (dest #dest)
  111.   )
  112. )
  113. ;----------------------------
  114. (set #AD_disk "DF0")
  115. (P_disk)
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source ("%s:" #AD_disk))
  119.   (dest #dest)
  120.   (pattern "~(s)")
  121. )
  122.  
  123. (P_diskn)
  124. (Copyfiles
  125. (help @copyfiles-help)
  126.   (source ("%s:" #AD_disk))
  127.   (dest #dest)
  128.   (pattern "~(s)")
  129. )
  130. (P_disko)
  131. (Copyfiles
  132. (help @copyfiles-help)
  133.   (source ("%s:" #AD_disk))
  134.   (dest #dest)
  135.   (pattern "~(s)")
  136. )
  137. (P_diskp)
  138. (Copyfiles
  139. (help @copyfiles-help)
  140.   (source ("%s:" #AD_disk))
  141.   (dest #dest)
  142.   (pattern "~(s)")
  143. )
  144. ;----------------------------
  145. (exit)
  146.  
  147.